unit Optimierungsfenster;

interface

uses
  Windows, Messages, SysUtils, Classes,
  {$IFDEF MSWINDOWS}
  Graphics, Controls, Forms,
  {$ELSE}
  QGraphics, QControls, QForms,
  {$ENDIF}
  Dialogs,
  StdCtrls, Buttons;

type
  TOptimierungsverlauf = class(TForm)
    Label1: TLabel;
    Abbrechen: TBitBtn;
    Label3: TLabel;
    OK: TBitBtn;
    Fitness: TLabel;
    Anzahl: TLabel;
    procedure AbbrechenClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure OKClick(Sender: TObject);
  private
    { Private-Deklarationen }
    Procedure Beenden;
  public
    { Public-Deklarationen }
  end;

var
  Optimierungsverlauf: TOptimierungsverlauf;

implementation
Uses SuchThread, GAThread;

{$R *.DFM}

Procedure TOptimierungsverlauf.Beenden;
Begin
 If MySuchThread <> Nil Then MySuchThread.Terminate
  else MyGAThread.Terminate;
end;

procedure TOptimierungsverlauf.AbbrechenClick(Sender: TObject);
begin
 Beenden;
end;

procedure TOptimierungsverlauf.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 Beenden;
end;

procedure TOptimierungsverlauf.OKClick(Sender: TObject);
begin
 Beenden;
end;

end.
